home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / jns / jns.amm < prev    next >
Text File  |  1993-01-11  |  23KB  |  541 lines
  1. % This is JNS.AMM the plain TeX macro package
  2. % (AM version) from Springer-Verlag
  3. % for the Journal of Nonlinear Science
  4. % version of 16 July 1990
  5. \font \tbfontt                = ambx10 scaled\magstep1
  6. \font \tafontt                = ambx10 scaled\magstep2
  7. \font \tbfontss               = ambx5  scaled\magstep1
  8. \font \tafontss               = ambx5  scaled\magstep2
  9. \font \sixbf                  = ambx6
  10. \font \tbfonts                = ambx7  scaled\magstep1
  11. \font \tafonts                = ambx7  scaled\magstep2
  12. \font \ninebf                 = ambx9
  13. \font \tasys                  = amex10 scaled\magstep1
  14. \font \tasyt                  = amex10 scaled\magstep2
  15. \font \sixi                   = ammi6
  16. \font \ninei                  = ammi9
  17. \font \tams                   = ambi10
  18. \font \tbmss                  = ambi10 scaled 600
  19. \font \tamss                  = ambi10 scaled 700
  20. \font \tbms                   = ambi10 scaled 833
  21. \font \tbmt                   = ambi10 scaled\magstep1
  22. \font \tamt                   = ambi10 scaled\magstep2
  23. \font \smallescriptscriptfont = amr5
  24. \font \smalletextfont         = amr5 at 10pt
  25. \font \smallescriptfont       = amr5 at 7pt
  26. \font \sixrm                  = amr6
  27. \font \ninerm                 = amr9
  28. \font \ninesl                 = amsl9
  29. \font \tensans                = amss10
  30. \font \fivesans               = amss10 at 5pt
  31. \font \sixsans                = amss10 at 6pt
  32. \font \sevensans              = amss10 at 7pt
  33. \font \ninesans               = amss10 at 9pt
  34. \font \tbst                   = amsy10 scaled\magstep1
  35. \font \tast                   = amsy10 scaled\magstep2
  36. \font \tbsss                  = amsy5  scaled\magstep1
  37. \font \tasss                  = amsy5  scaled\magstep2
  38. \font \sixsy                  = amsy6
  39. \font \tbss                   = amsy7  scaled\magstep1
  40. \font \tass                   = amsy7  scaled\magstep2
  41. \font \ninesy                 = amsy9
  42. \font \markfont               = amti10 at 11pt
  43. \font \nineit                 = amti9
  44. \font \ninett                 = amtt9
  45. %-----------------------------------------------------------------------
  46. \magnification=\magstep0
  47. \hsize=12.2truecm
  48. \vsize=19.4truecm
  49. \hfuzz=2pt
  50. \tolerance=500
  51. \abovedisplayskip=3 mm plus6pt minus 4pt
  52. \belowdisplayskip=3 mm plus6pt minus 4pt
  53. \abovedisplayshortskip=0mm plus6pt minus 2pt
  54. \belowdisplayshortskip=2 mm plus4pt minus 4pt
  55. \predisplaypenalty=0
  56. \clubpenalty=10000
  57. \widowpenalty=10000
  58. \frenchspacing
  59. \newdimen\oldparindent\oldparindent=1.5em
  60. \parindent=1.5em
  61. %-----------------------------------------------------------------------
  62. \def\getsto{\mathrel{\mathchoice {\vcenter{\offinterlineskip
  63. \halign{\hfil
  64. $\displaystyle##$\hfil\cr\gets\cr\to\cr}}}
  65. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr\gets
  66. \cr\to\cr}}}
  67. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr\gets
  68. \cr\to\cr}}}
  69. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr
  70. \gets\cr\to\cr}}}}}
  71. \def\lid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  72. $\displaystyle##$\hfil\cr<\cr\noalign{\vskip1.2pt}=\cr}}}
  73. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr<\cr
  74. \noalign{\vskip1.2pt}=\cr}}}
  75. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr<\cr
  76. \noalign{\vskip1pt}=\cr}}}
  77. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr
  78. <\cr
  79. \noalign{\vskip0.9pt}=\cr}}}}}
  80. \def\gid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
  81. $\displaystyle##$\hfil\cr>\cr\noalign{\vskip1.2pt}=\cr}}}
  82. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr>\cr
  83. \noalign{\vskip1.2pt}=\cr}}}
  84. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr>\cr
  85. \noalign{\vskip1pt}=\cr}}}
  86. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr
  87. >\cr
  88. \noalign{\vskip0.9pt}=\cr}}}}}
  89. \def\grole{\mathrel{\mathchoice {\vcenter{\offinterlineskip
  90. \halign{\hfil
  91. $\displaystyle##$\hfil\cr>\cr\noalign{\vskip-1pt}<\cr}}}
  92. {\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr
  93. >\cr\noalign{\vskip-1pt}<\cr}}}
  94. {\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr
  95. >\cr\noalign{\vskip-0.8pt}<\cr}}}
  96. {\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr
  97. >\cr\noalign{\vskip-0.3pt}<\cr}}}}}
  98. \def\bbbr{{\rm I\!R}} %reelle Zahlen
  99. \def\bbbm{{\rm I\!M}}
  100. \def\bbbn{{\rm I\!N}} %natuerliche Zahlen
  101. \def\bbbf{{\rm I\!F}}
  102. \def\bbbh{{\rm I\!H}}
  103. \def\bbbk{{\rm I\!K}}
  104. \def\bbbp{{\rm I\!P}}
  105. \def\bbbone{{\mathchoice {\rm 1\mskip-4mu l} {\rm 1\mskip-4mu l}
  106. {\rm 1\mskip-4.5mu l} {\rm 1\mskip-5mu l}}}
  107. \def\bbbc{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm C$}\hbox{\hbox
  108. to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}
  109. {\setbox0=\hbox{$\textstyle\rm C$}\hbox{\hbox
  110. to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}
  111. {\setbox0=\hbox{$\scriptstyle\rm C$}\hbox{\hbox
  112. to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}
  113. {\setbox0=\hbox{$\scriptscriptstyle\rm C$}\hbox{\hbox
  114. to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}}}
  115. \def\bbbe{{\mathchoice {\setbox0=\hbox{\smalletextfont e}\hbox{\raise
  116. 0.1\ht0\hbox to0pt{\kern0.4\wd0\vrule width0.3pt height0.7\ht0\hss}\box0}}
  117. {\setbox0=\hbox{\smalletextfont e}\hbox{\raise
  118. 0.1\ht0\hbox to0pt{\kern0.4\wd0\vrule width0.3pt height0.7\ht0\hss}\box0}}
  119. {\setbox0=\hbox{\smallescriptfont e}\hbox{\raise
  120. 0.1\ht0\hbox to0pt{\kern0.5\wd0\vrule width0.2pt height0.7\ht0\hss}\box0}}
  121. {\setbox0=\hbox{\smallescriptscriptfont e}\hbox{\raise
  122. 0.1\ht0\hbox to0pt{\kern0.4\wd0\vrule width0.2pt height0.7\ht0\hss}\box0}}}}
  123. \def\bbbq{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm Q$}\hbox{\raise
  124. 0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.8\ht0\hss}\box0}}
  125. {\setbox0=\hbox{$\textstyle\rm Q$}\hbox{\raise
  126. 0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.8\ht0\hss}\box0}}
  127. {\setbox0=\hbox{$\scriptstyle\rm Q$}\hbox{\raise
  128. 0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.7\ht0\hss}\box0}}
  129. {\setbox0=\hbox{$\scriptscriptstyle\rm Q$}\hbox{\raise
  130. 0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.7\ht0\hss}\box0}}}}
  131. \def\bbbt{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm
  132. T$}\hbox{\hbox to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}
  133. {\setbox0=\hbox{$\textstyle\rm T$}\hbox{\hbox
  134. to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}
  135. {\setbox0=\hbox{$\scriptstyle\rm T$}\hbox{\hbox
  136. to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}
  137. {\setbox0=\hbox{$\scriptscriptstyle\rm T$}\hbox{\hbox
  138. to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}}}
  139. \def\bbbs{{\mathchoice
  140. {\setbox0=\hbox{$\displaystyle     \rm S$}\hbox{\raise0.5\ht0\hbox
  141. to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\hbox
  142. to0pt{\kern0.55\wd0\vrule height0.5\ht0\hss}\box0}}
  143. {\setbox0=\hbox{$\textstyle        \rm S$}\hbox{\raise0.5\ht0\hbox
  144. to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\hbox
  145. to0pt{\kern0.55\wd0\vrule height0.5\ht0\hss}\box0}}
  146. {\setbox0=\hbox{$\scriptstyle      \rm S$}\hbox{\raise0.5\ht0\hbox
  147. to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\raise0.05\ht0\hbox
  148. to0pt{\kern0.5\wd0\vrule height0.45\ht0\hss}\box0}}
  149. {\setbox0=\hbox{$\scriptscriptstyle\rm S$}\hbox{\raise0.5\ht0\hbox
  150. to0pt{\kern0.4\wd0\vrule height0.45\ht0\hss}\raise0.05\ht0\hbox
  151. to0pt{\kern0.55\wd0\vrule height0.45\ht0\hss}\box0}}}}
  152. \def\bbbz{{\mathchoice {\hbox{$\sans\textstyle Z\kern-0.4em Z$}}
  153. {\hbox{$\sans\textstyle Z\kern-0.4em Z$}}
  154. {\hbox{$\sans\scriptstyle Z\kern-0.3em Z$}}
  155. {\hbox{$\sans\scriptscriptstyle Z\kern-0.2em Z$}}}}
  156. %--------------------------------------------------------------------------
  157. % petit-fonts
  158. \skewchar\ninei='177 \skewchar\sixi='177
  159. \skewchar\ninesy='60 \skewchar\sixsy='60
  160. \hyphenchar\ninett=-1
  161. \def\newline{\hfil\break}%
  162. %--------------------------------------------------------------------------
  163. \catcode`@=11
  164. \def\folio{\ifnum\pageno<\z@
  165. \uppercase\expandafter{\romannumeral-\pageno}%
  166. \else\number\pageno \fi}
  167. \catcode`@=12 % at signs are no longer letters
  168. %-------------------------------------------------------
  169. % Definition der versal griechischen Buchstaben
  170. %===============================================================================
  171.   \mathchardef\Gamma="0100
  172.   \mathchardef\Delta="0101
  173.   \mathchardef\Theta="0102
  174.   \mathchardef\Lambda="0103
  175.   \mathchardef\Xi="0104
  176.   \mathchardef\Pi="0105
  177.   \mathchardef\Sigma="0106
  178.   \mathchardef\Upsilon="0107
  179.   \mathchardef\Phi="0108
  180.   \mathchardef\Psi="0109
  181.   \mathchardef\Omega="010A
  182. %-------------------------------------------------------------------------------
  183. \def\squareforqed{\hbox{\rlap{$\sqcap$}$\sqcup$}}
  184. \def\qed{\ifmmode\squareforqed\else{\unskip\nobreak\hfil
  185. \penalty50\hskip1em\null\nobreak\hfil\squareforqed
  186. \parfillskip=0pt\finalhyphendemerits=0\endgraf}\fi}
  187. %---------------------------------------------------------------------------
  188. \newfam\sansfam
  189. \textfont\sansfam=\tensans\scriptfont\sansfam=\sevensans
  190. \scriptscriptfont\sansfam=\fivesans
  191. \def\sans{\fam\sansfam\tensans}
  192. %---------------------------------------------------------------------------
  193. \def\stackfigbox{\if
  194. Y\FIG\global\setbox\figbox=\vbox{\unvbox\figbox\box1}%
  195. \else\global\setbox\figbox=\vbox{\box1}\global\let\FIG=Y\fi}
  196. %
  197. \def\placefigure{\dimen0=\ht1\advance\dimen0by\dp1
  198. \advance\dimen0by5\baselineskip
  199. \advance\dimen0by0.4true cm
  200. \ifdim\dimen0>\vsize\pageinsert\box1\vfill\endinsert
  201. \else%keine seitenhohe Abbildung
  202. \if Y\FIG\stackfigbox\else
  203. \dimen0=\pagetotal\ifdim\dimen0<\pagegoal%aktuelle Seite ist noch nicht voll
  204. \advance\dimen0by\ht1\advance\dimen0by\dp1\advance\dimen0by1.7true cm
  205. \ifdim\dimen0>\pagegoal\stackfigbox
  206. \else\box1\vskip7true mm\fi
  207. \else\box1\vskip7true mm\fi\fi\fi\let\firstleg=Y}
  208. %
  209. % Abbildungen
  210. \def\begfig#1cm#2\endfig{\par
  211. \setbox1=\vbox{\dimen0=#1true cm\advance\dimen0
  212. by1true cm\kern\dimen0\vskip-.8333\baselineskip#2}\placefigure}
  213. %
  214. \def\begdoublefig#1cm #2 #3 \enddoublefig{\begfig#1cm%
  215. \line{\vtop{\hsize=0.46\hsize#2}\hfill
  216. \vtop{\hsize=0.46\hsize#3}}\endfig}
  217. %-------------------------------------------------------------------
  218. \let\firstleg=Y
  219. % Abbildungslegenden
  220. % Falls Text kleiner als eine volle Zeile, zentriert.
  221. \def\figure#1#2{\if Y\firstleg\vskip1true cm\else\vskip1.7true mm\fi
  222. \let\firstleg=N\setbox0=\vbox{\noindent\petit{\bf
  223. Fig.\ts#1\unskip.\ }\ignorespaces #2\smallskip
  224. \count255=0\global\advance\count255by\prevgraf}%
  225. \ifnum\count255>1\box0\else
  226. \centerline{\petit{\bf Fig.\ts#1\unskip.\
  227. }\ignorespaces#2}\smallskip\fi}
  228. %-----------------------------------------------------------------
  229. % Tabellenkoepfe
  230. \def\tabcap#1#2{\smallskip\vbox{\noindent\petit{\bf Table\ts#1\unskip.\
  231. }\ignorespaces #2\medskip}}
  232. %-------------------------------------------------------------------
  233. \def\begtab#1cm#2\endtab{\par
  234.    \ifvoid\topins\midinsert\medskip\vbox{#2\kern#1true cm}\endinsert
  235.    \else\topinsert\vbox{#2\kern#1true cm}\endinsert\fi}
  236. %-------------------------------------------------------------------
  237. \def\begpet{\vskip6pt\bgroup\petit}
  238. \def\endpet{\vskip6pt\egroup}
  239. %-------------------------------------------------------------------
  240. % Referenzen
  241. \newdimen\refindent
  242. \newlinechar=`\|
  243. \def\begref#1#2{\titlea{}{#1}%
  244. \bgroup\petit
  245. \setbox0=\hbox{#2\enspace}\refindent=\wd0\relax
  246. \if!#2!\else
  247. \ifdim\refindent>0.5em\else
  248. \message{|Something may be wrong with your references;}%
  249. \message{probably you missed the second argument of \string\begref.}%
  250. \fi\fi}
  251. \def\ref{\goodbreak
  252. \hangindent\oldparindent\hangafter=1
  253. \noindent\ignorespaces}
  254. \def\refno#1{\goodbreak
  255. \setbox0=\hbox{#1\enspace}\ifdim\refindent<\wd0\relax
  256. \message{|Your reference `#1' is wider than you pretended in using
  257. \string\begref.}\fi
  258. \hangindent\refindent\hangafter=1
  259. \noindent\kern\refindent\llap{#1\enspace}\ignorespaces}
  260. \def\refmark#1{\goodbreak
  261. \setbox0=\hbox{#1\enspace}\ifdim\refindent<\wd0\relax
  262. \message{|Your reference `#1' is wider than you pretended in using
  263. \string\begref.}\fi
  264. \hangindent\refindent\hangafter=1
  265. \noindent\hbox to\refindent{#1\hss}\ignorespaces}
  266. \def\endref{\goodbreak\endpet}% Ende der Referenzen
  267. %-------------------------------------------------------------------
  268. \def\vec#1{{\textfont1=\tenbf\scriptfont1=\sevenbf
  269. \textfont0=\tenbf\scriptfont0=\sevenbf
  270. \mathchoice{\hbox{$\displaystyle#1$}}{\hbox{$\textstyle#1$}}
  271. {\hbox{$\scriptstyle#1$}}{\hbox{$\scriptscriptstyle#1$}}}}
  272. %---------------------------------------------------------------------
  273. \def\petit{\def\rm{\fam0\ninerm}%
  274. \textfont0=\ninerm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
  275.  \textfont1=\ninei \scriptfont1=\sixi \scriptscriptfont1=\fivei
  276.  \textfont2=\ninesy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
  277.  \def\it{\fam\itfam\nineit}%
  278.  \textfont\itfam=\nineit
  279.  \def\sl{\fam\slfam\ninesl}%
  280.  \textfont\slfam=\ninesl
  281.  \def\bf{\fam\bffam\ninebf}%
  282.  \textfont\bffam=\ninebf \scriptfont\bffam=\sixbf
  283.  \scriptscriptfont\bffam=\fivebf
  284.  \def\sans{\fam\sansfam\ninesans}%
  285.  \textfont\sansfam=\ninesans \scriptfont\sansfam=\sixsans
  286.  \scriptscriptfont\sansfam=\fivesans
  287.  \def\tt{\fam\ttfam\ninett}%
  288.  \textfont\ttfam=\ninett
  289.  \normalbaselineskip=11pt
  290.  \setbox\strutbox=\hbox{\vrule height7pt depth2pt width0pt}%
  291.  \normalbaselines\rm
  292. \def\vec##1{{\textfont1=\tbms\scriptfont1=\tbmss
  293. \textfont0=\ninebf\scriptfont0=\sixbf
  294. \mathchoice{\hbox{$\displaystyle##1$}}{\hbox{$\textstyle##1$}}
  295. {\hbox{$\scriptstyle##1$}}{\hbox{$\scriptscriptstyle##1$}}}}}
  296. %-------------------------------------------------------------------
  297. \nopagenumbers
  298. %
  299. % Der Schalter \header gibt an, ob ein "running head" gedruckt werden
  300. % soll; wenn er nicht auf "N" steht kommt ein solcher.
  301. \let\header=Y
  302. \let\FIG=N
  303. \newbox\figbox
  304. \output={\if N\header\headline={\hfil}\fi\plainoutput\global\let\header=Y
  305. \if Y\FIG\topinsert\unvbox\figbox\endinsert\global\let\FIG=N\fi}
  306. %------------------------------------------------------
  307. \let\lasttitle=N
  308. %---------------------------------------------------------------
  309. \catcode`\@=\active
  310. \def\author#1{\bgroup
  311. \baselineskip=13.2pt
  312. \lineskip=0pt
  313. \pretolerance=10000
  314. \markfont
  315. \ignorespaces#1\bigskip\egroup
  316. {\def@##1{}%
  317. \setbox0=\hbox{\petit\kern2.5true cc\ignorespaces#1\unskip}%
  318. \ifdim\wd0>\hsize
  319. \message{The names of the authors exceed the headline, please use a }%
  320. \message{short form with AUTHORRUNNING}\gdef\leftheadline{%
  321. \hbox to2.5true cc{\folio\hfil}\hfil AUTHORS suppressed due to excessive
  322. length}%
  323. \else
  324. \xdef\leftheadline{\hbox to2.5true
  325. cc{\noexpand\folio\hfil}\hfill\ignorespaces#1\unskip}%
  326. \fi
  327. }\let\INS=E}
  328. \def\address#1{\bgroup\petit
  329. \ignorespaces#1\bigskip\egroup
  330. \catcode`\@=12
  331. \vskip2cm\noindent\ignorespaces}
  332. %---------------------------------------------------------------------
  333. \let\INS=N%
  334. % Aktionen, die bei Antreffen des @-Zeichens zu machen sind;
  335. % drei Faelle a) @ bei AUTHOR, b) 1.@ bei ADDRESS, c) alle weiteren @'s
  336. \def@#1{\if N\INS\unskip$\,^{#1}$\else\global\footcount=#1\relax
  337. \if E\INS\hangindent0.5\parindent\noindent\hbox
  338. to0.5\parindent{$^{#1}$\hfil}\let\INS=Y\ignorespaces
  339. \else\par\hangindent0.5\parindent\noindent\hbox
  340. to0.5\parindent{$^{#1}$\hfil}\ignorespaces\fi\fi}%
  341. \catcode`\@=12
  342. %-------------------------------------------------------------------
  343. % "running head"
  344. \headline={\petit\def\newline{ }\def\fonote#1{}\ifodd\pageno
  345. \rightheadline\else\leftheadline\fi}
  346. \def\rightheadline{Missing CONTRIBUTION
  347. title\hfil\hbox to2.5true cc{\hfil\folio}}
  348. \def\leftheadline{\hbox to2.5true cc{\folio\hfil}\hfil Missing name(s) of the
  349. author(s)}
  350. \nopagenumbers
  351. %
  352. \let\header=Y
  353. %------------------------------------------------------
  354. \def\contributionrunning#1{\message{Running head on right hand sides
  355. (CONTRIBUTION)
  356. has been changed}\gdef\rightheadline{\ignorespaces#1\unskip\hfil
  357. \hbox to2.5true cc{\hfil\folio}}}
  358. \def\authorrunning#1{\message{Running head on left hand sides (AUTHOR)
  359. has been changed}\gdef\leftheadline{\hbox to2.5true cc{\folio
  360. \hfil}\hfil\ignorespaces#1\unskip}}
  361. %------------------------------------------------------
  362. \let\lasttitle=N
  363.  \def\contribution#1{\vfill\eject
  364.  \let\header=N\bgroup
  365.  \textfont0=\tafontt \scriptfont0=\tafonts \scriptscriptfont0=\tafontss
  366.  \textfont1=\tamt \scriptfont1=\tams \scriptscriptfont1=\tams
  367.  \textfont2=\tast \scriptfont2=\tass \scriptscriptfont2=\tasss
  368.  \par\baselineskip=16pt
  369.      \lineskip=16pt
  370.      \tafontt
  371.      \raggedright
  372.      \pretolerance=10000
  373.      \noindent
  374.      \ignorespaces#1
  375.      \vskip17pt\egroup
  376.      \nobreak
  377.      \parindent=0pt
  378.      \everypar={\global\parindent=1.5em
  379.      \global\let\lasttitle=N\global\everypar={}}%
  380.      \global\let\lasttitle=A%
  381.      \setbox0=\hbox{\petit\def\newline{ }\def\fonote##1{}\kern2.5true
  382.      cc\ignorespaces#1}\ifdim\wd0>\hsize
  383.      \message{Your CONTRIBUTIONtitle exceeds the headline,
  384. please use a short form
  385. with CONTRIBUTIONRUNNING}\gdef\rightheadline{CONTRIBUTION title
  386. suppressed due to excessive length\hfil\hbox to2.5true cc{\hfil\folio}}%
  387. \else
  388. \gdef\rightheadline{\ignorespaces#1\unskip\hfil\hbox to2.5true
  389. cc{\hfil\folio}}\fi
  390. \catcode`\@=\active
  391.      \ignorespaces}
  392. %------------------------------------------------------
  393. % Beginn Ueberschrift 1. Ordnung
  394. \def\titlea#1#2{\if N\lasttitle\else\vskip-28pt
  395.      \fi
  396.      \vskip18pt plus 4pt minus4pt
  397.      \bgroup
  398. \textfont0=\tbfontt \scriptfont0=\tbfonts \scriptscriptfont0=\tbfontss
  399. \textfont1=\tbmt \scriptfont1=\tbms \scriptscriptfont1=\tbmss
  400. \textfont2=\tbst \scriptfont2=\tbss \scriptscriptfont2=\tbsss
  401. \textfont3=\tasys \scriptfont3=\tenex \scriptscriptfont3=\tenex
  402.      \baselineskip=16pt
  403.      \lineskip=0pt
  404.      \pretolerance=10000
  405.      \noindent
  406.      \tbfontt
  407.      \rightskip 0pt plus 6em
  408.      \setbox0=\vbox{\vskip23pt\def\fonote##1{}%
  409.      \noindent
  410.      \if!#1!\ignorespaces#2
  411.      \else\ignorespaces#1\unskip\enspace\ignorespaces#2\fi
  412.      \vskip18pt}%
  413.      \dimen0=\pagetotal\advance\dimen0 by-\pageshrink
  414.      \ifdim\dimen0<\pagegoal
  415.      \dimen0=\ht0\advance\dimen0 by\dp0\advance\dimen0 by
  416.      3\normalbaselineskip
  417.      \advance\dimen0 by\pagetotal
  418.      \ifdim\dimen0>\pagegoal\eject\fi\fi
  419.      \noindent
  420.      \if!#1!\ignorespaces#2
  421.      \else\ignorespaces#1\unskip\enspace\ignorespaces#2\fi
  422.      \vskip12pt plus4pt minus4pt\egroup
  423.      \nobreak
  424.      \parindent=0pt
  425.      \everypar={\global\parindent=\oldparindent
  426.      \global\let\lasttitle=N\global\everypar={}}%
  427.      \global\let\lasttitle=A%
  428.      \ignorespaces}
  429. %------------------------------------------------------
  430.  % Beginn Ueberschrift 2. Ordnung
  431.  \def\titleb#1#2{\if N\lasttitle\else\vskip-22pt
  432.      \fi
  433.      \vskip18pt plus 4pt minus4pt
  434.      \bgroup
  435. \textfont0=\tenbf \scriptfont0=\sevenbf \scriptscriptfont0=\fivebf
  436. \textfont1=\tams \scriptfont1=\tamss \scriptscriptfont1=\tbmss
  437.      \lineskip=0pt
  438.      \pretolerance=10000
  439.      \noindent
  440.      \bf
  441.      \rightskip 0pt plus 6em
  442.      \setbox0=\vbox{\vskip23pt\def\fonote##1{}%
  443.      \noindent
  444.      \if!#1!\ignorespaces#2
  445.      \else\ignorespaces#1\unskip\enspace\ignorespaces#2\fi
  446.      \vskip10pt}%
  447.      \dimen0=\pagetotal\advance\dimen0 by-\pageshrink
  448.      \ifdim\dimen0<\pagegoal
  449.      \dimen0=\ht0\advance\dimen0 by\dp0\advance\dimen0 by
  450.      3\normalbaselineskip
  451.      \advance\dimen0 by\pagetotal
  452.      \ifdim\dimen0>\pagegoal\eject\fi\fi
  453.      \noindent
  454.      \if!#1!\ignorespaces#2
  455.      \else\ignorespaces#1\unskip\enspace\ignorespaces#2\fi
  456.      \vskip8pt plus4pt minus4pt\egroup
  457.      \nobreak
  458.      \parindent=0pt
  459.      \everypar={\global\parindent=\oldparindent
  460.      \global\let\lasttitle=N\global\everypar={}}%
  461.      \global\let\lasttitle=B%
  462.      \ignorespaces}
  463. %------------------------------------------------------
  464.  % Beginn Ueberschrift 3. Ordnung
  465.  \def\titlec#1{\if N\lasttitle\else\vskip-\baselineskip
  466.      \fi
  467.      \vskip18pt plus 4pt minus4pt
  468.      \bgroup
  469. \textfont0=\tenbf \scriptfont0=\sevenbf \scriptscriptfont0=\fivebf
  470. \textfont1=\tams \scriptfont1=\tamss \scriptscriptfont1=\tbmss
  471.      \bf
  472.      \noindent
  473.      \ignorespaces#1\unskip\ \egroup
  474.      \ignorespaces}
  475. %-------------------------------------------------------------------
  476.  % Beginn Ueberschrift 4. Ordnung
  477.  \def\titled#1{\if N\lasttitle\else\vskip-\baselineskip
  478.      \fi
  479.      \vskip12pt plus 4pt minus 4pt
  480.      \bgroup
  481.      \it
  482.      \noindent
  483.      \ignorespaces#1\unskip\ \egroup
  484.      \ignorespaces}
  485. %-------------------------------------------------------------------
  486. \let\ts=\thinspace
  487. \def\footnoterule{\kern-3pt\hrule width 2true cm\kern2.6pt}
  488. % Fussnoten-macros
  489. \newcount\footcount \footcount=0
  490. \def\advftncnt{\advance\footcount by1\global\footcount=\footcount}
  491. % Automatisch numerierte Fussnote, Fussnotentex in petit
  492. \def\fonote#1{\advftncnt$^{\the\footcount}$\begingroup\petit
  493. \parfillskip=0pt plus 1fil
  494. \def\textindent##1{\hangindent0.5\oldparindent\noindent\hbox
  495. to0.5\oldparindent{##1\hss}\ignorespaces}%
  496. \vfootnote{$^{\the\footcount}$}{#1\vskip-9.69pt}\endgroup}
  497. %-------------------------------------------------------------------
  498. \def\item#1{\par\noindent
  499. \hangindent6.5 mm\hangafter=0
  500. \llap{#1\enspace}\ignorespaces}
  501. %-------------------------------------------------------------------
  502. \def\itemitem#1{\par\noindent
  503. \hangindent11.5 mm\hangafter=0
  504. \llap{#1\enspace}\ignorespaces}
  505. %-------------------------------------------------------------------
  506. \def\newenvironment#1#2#3#4{\long\def#1##1##2{\removelastskip
  507. \vskip\baselineskip\noindent{#3#2\if!##1!.\else\unskip\ \ignorespaces
  508. ##1\unskip\fi\ }{#4\ignorespaces##2}\vskip\baselineskip}}
  509. % Lemma, Proposition, Theorem, Corollary
  510. \newenvironment\lemma{Lemma}{\bf}{\it}
  511. \newenvironment\proposition{Proposition}{\bf}{\it}
  512. \newenvironment\theorem{Theorem}{\bf}{\it}
  513. \newenvironment\corollary{Corollary}{\bf}{\it}
  514. %---------------------------------------------------------------------
  515. % Example, Exercise, Problem, Solution, Definition
  516. \newenvironment\example{Example}{\it}{\rm}
  517. \newenvironment\exercise{Exercise}{\bf}{\rm}
  518. \newenvironment\problem{Problem}{\bf}{\rm}
  519. \newenvironment\solution{Solution}{\bf}{\rm}
  520. \newenvironment\definition{Definition}{\bf}{\rm}
  521. %---------------------------------------------------------------------
  522. %Note, Question
  523. \newenvironment\note{Note}{\it}{\rm}
  524. \newenvironment\question{Question}{\it}{\rm}
  525. %---------------------------------------------------------------------
  526. %Proof, Remark
  527. \long\def\remark#1{\removelastskip\vskip\baselineskip\noindent{\it
  528. Remark.\ }\ignorespaces}
  529. \long\def\proof#1{\removelastskip\vskip\baselineskip\noindent{\it
  530. Proof\if!#1!\else\ \ignorespaces#1\fi.\ }\ignorespaces}
  531. %------------------------------------------------------------------
  532. \def\typeset{\petit\noindent This article was processed by the author
  533. using the \TeX\ macro package from Springer-Verlag.\par}
  534. \outer\def\byebye{\bigskip\bigskip\typeset
  535. \footcount=1\ifx\speciali\undefined\else
  536. \loop\smallskip\noindent special character No\number\footcount:
  537. \csname special\romannumeral\footcount\endcsname
  538. \advance\footcount by 1\global\footcount=\footcount
  539. \ifnum\footcount<11\repeat\fi
  540. \vfill\supereject\end}
  541.